WEval (bExpression,bBlock) --> true/false:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Functions:
~~~~~~~~~~
The code block bBlock is performed until the result of
Eval(bExpression)==true, or result of Eval(bBlock)==false.

Parameter description:
~~~~~~~~~~~~~~~~~~~~~~
bExpression:    until this code block result is true the code block
                bBlock is performed again
bBlock:         code block to repeat

Return value:
~~~~~~~~~~~~~
true if terminated with bExpression
false if terminated with bBlock

Source code is in file  Object3.prg